currentpagedevice /InputAttributes get dup 1 known
	{
		1 get dup null eq {
			pop
		} {
			dup length 1 add dict copy
			dup /InputAttributes
			1 dict dup /Priority [1] put
			put setpagedevice
		} ifelse
	} {
		pop
	} ifelse